Chip 1998 September/CHIP Eylül 1998.iso/demolar/lokman/DISK1/_SETUP.2/Group1/Tarihdll.dll/0/RCDATA/TURUNFORM/TURUNFORM.txt

Text File | 1998-07-24 | 33KB | 1,198 lines

object UrunForm: TUrunForm
  Left = 14
  Top = 2
  Width = 614
  Height = 442
  ActiveControl = EditILACAD
  Caption = '�R�N KAYIT KARTI'
  Color = clSilver
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  KeyPreview = True
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  OnKeyDown = FormKeyDown
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object BitBtn2: TBitBtn
    Left = 527
    Top = 265
    Width = 75
    Height = 25
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 1
    Kind = bkClose
  end
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 606
    Height = 415
    Align = alClient
    BevelInner = bvLowered
    BorderWidth = 1
    Caption = 'Panel2'
    TabOrder = 0
    object ScrollBox: TScrollBox
      Left = 3
      Top = 3
      Width = 600
      Height = 409
      HelpContext = 312
      HorzScrollBar.Margin = 6
      HorzScrollBar.Range = 335
      VertScrollBar.Margin = 6
      VertScrollBar.Range = 198
      Align = alClient
      AutoScroll = False
      BorderStyle = bsNone
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 0
      object Bevel2: TBevel
        Left = 85
        Top = 186
        Width = 161
        Height = 21
        Shape = bsFrame
        Style = bsRaised
      end
      object Bevel1: TBevel
        Left = 3
        Top = 210
        Width = 259
        Height = 41
        Style = bsRaised
      end
      object Label3: TLabel
        Left = 23
        Top = 5
        Width = 47
        Height = 14
        Caption = '�&LA� ADI'
        FocusControl = EditILACAD
      end
      object Label4: TLabel
        Left = 20
        Top = 37
        Width = 50
        Height = 14
        Caption = '&GRUP ADI'
      end
      object Label5: TLabel
        Left = 15
        Top = 66
        Width = 55
        Height = 14
        Caption = '&F�RMA ADI'
      end
      object Label6: TLabel
        Left = 7
        Top = 95
        Width = 63
        Height = 15
        Caption = '&JENER�K ADI'
      end
      object Label7: TLabel
        Left = 3
        Top = 124
        Width = 67
        Height = 14
        Caption = '&END�KASYON'
      end
      object Label8: TLabel
        Left = 157
        Top = 145
        Width = 34
        Height = 14
        Caption = 'F�YA&TI'
        FocusControl = EditFIYAT
      end
      object Label9: TLabel
        Left = 2
        Top = 145
        Width = 70
        Height = 14
        Caption = 'F�YAT &TAR�H�'
        FocusControl = EditFIYATARIH
      end
      object Label10: TLabel
        Left = 110
        Top = 144
        Width = 34
        Height = 14
        Caption = '&KDV %'
        FocusControl = EditKDV
      end
      object Label12: TLabel
        Left = 429
        Top = 145
        Width = 84
        Height = 14
        Caption = 'ELDEK� &M�KTARI'
        FocusControl = EditMIKTAR
      end
      object Label14: TLabel
        Left = 372
        Top = 145
        Width = 47
        Height = 14
        Caption = 'RAF &YER�'
        FocusControl = EditYER
      end
      object Label15: TLabel
        Left = 271
        Top = 145
        Width = 34
        Height = 13
        Caption = 'M�A&D'
        FocusControl = EditMIAD
      end
      object Label18: TLabel
        Left = 10
        Top = 229
        Width = 31
        Height = 14
        Caption = '&AKT�F'
        FocusControl = EditAKTIFSTOK
      end
      object Label19: TLabel
        Left = 103
        Top = 229
        Width = 31
        Height = 14
        Caption = '&PAS�F'
        FocusControl = EditPASFSTOK
      end
      object Label22: TLabel
        Left = 324
        Top = 23
        Width = 70
        Height = 14
        Caption = 'PR&OSPEKT�S'
      end
      object SpeedBtnTakvim: TSpeedButton
        Left = 78
        Top = 161
        Width = 22
        Height = 21
        Hint = 'Takvime Bak�n'
        Glyph.Data = {
          4E010000424D4E01000000000000760000002800000012000000120000000100
          040000000000D800000000000000000000000000000010000000000000000000
          BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          3333330000003333333333333333330000003338888888888888330000003304
          0404404040483300000033FFFFFFFFFFFF483300000033FFFFFFFFFFFF483300
          000033FF000F0007FF483300000033FFF0FF7F70FF483300000033FFF0FFFFF0
          FF483300000033FFF0FF0007FF483300000033FF00FF0FFFFF483300000033FF
          F0FF0000FF483300000033FFFFFFFFFFFF483300000033FFFFFFFFFFFF483300
          000033F7777777777F4833000000330000000000003333000000333333333333
          333333000000333333333333333333000000}
        ParentShowHint = False
        ShowHint = True
        Spacing = 3
        OnClick = SpeedBtnTakvimClick
      end
      object SpeedBtnMiad: TSpeedButton
        Left = 339
        Top = 161
        Width = 22
        Height = 21
        Hint = 'Takvime Bak�n'
        Glyph.Data = {
          4E010000424D4E01000000000000760000002800000012000000120000000100
          040000000000D800000000000000000000000000000010000000000000000000
          BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          3333330000003333333333333333330000003338888888888888330000003304
          0404404040483300000033FFFFFFFFFFFF483300000033FFFFFFFFFFFF483300
          000033FF000F0007FF483300000033FFF0FF7F70FF483300000033FFF0FFFFF0
          FF483300000033FFF0FF0007FF483300000033FF00FF0FFFFF483300000033FF
          F0FF0000FF483300000033FFFFFFFFFFFF483300000033FFFFFFFFFFFF483300
          000033F7777777777F4833000000330000000000003333000000333333333333
          333333000000333333333333333333000000}
        ParentShowHint = False
        ShowHint = True
        Spacing = 3
        OnClick = SpeedBtnMiadClick
      end
      object SpeedBJen: TSpeedButton
        Left = 295
        Top = 92
        Width = 21
        Height = 21
        Hint = 'Jenerik Ad� Se�in'
        Glyph.Data = {
          42010000424D4201000000000000760000002800000011000000110000000100
          040000000000CC00000000000000000000000000000010000000000000000000
          BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003333333FBFFF
          FFFFF000000033333333FBBFFFFBF00000003333333FBFFFFBFFFE0000003333
          333FBFFFFBFBF600000033333333FBBFFFFFF70000003333333444FBFFFBF600
          000033333344834FBFFFF1000000333334847F84BFFFF6000000333334484F84
          FBBFB00000003333348F74483FF3F6000000333344FFF7433333300000003344
          8F8444333333300000003448F7433333333330000000348F7733333333333000
          000034F77433333333333F000000344443333333333330000000333333333333
          333337000000}
        ParentShowHint = False
        ShowHint = True
        OnClick = SpeedBJenClick
      end
      object SpeedBENDIK: TSpeedButton
        Left = 295
        Top = 119
        Width = 21
        Height = 21
        Hint = 'Endikasyon Se�in'
        Glyph.Data = {
          42010000424D4201000000000000760000002800000011000000110000000100
          040000000000CC00000000000000000000000000000010000000000000000000
          BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003333333FBFFF
          FFFFF000000033333333FBBFFFFBF00000003333333FBFFFFBFFFE0000003333
          333FBFFFFBFBF600000033333333FBBFFFFFF70000003333333444FBFFFBF600
          000033333344834FBFFFF1000000333334847F84BFFFF6000000333334484F84
          FBBFB00000003333348F74483FF3F6000000333344FFF7433333300000003344
          8F8444333333300000003448F7433333333330000000348F7733333333333000
          000034F77433333333333F000000344443333333333330000000333333333333
          333337000000}
        ParentShowHint = False
        ShowHint = True
        OnClick = SpeedBENDIKClick
      end
      object SpeedBFIRMA: TSpeedButton
        Left = 295
        Top = 63
        Width = 21
        Height = 21
        Hint = 'Firma Ad� Se�in'
        Glyph.Data = {
          42010000424D4201000000000000760000002800000011000000110000000100
          040000000000CC00000000000000000000000000000010000000000000000000
          BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003333333FBFFF
          FFFFF000000033333333FBBFFFFBF00000003333333FBFFFFBFFFE0000003333
          333FBFFFFBFBF600000033333333FBBFFFFFF70000003333333444FBFFFBF600
          000033333344834FBFFFF1000000333334847F84BFFFF6000000333334484F84
          FBBFB00000003333348F74483FF3F6000000333344FFF7433333300000003344
          8F8444333333300000003448F7433333333330000000348F7733333333333000
          000034F77433333333333F000000344443333333333330000000333333333333
          333337000000}
        ParentShowHint = False
        ShowHint = True
        OnClick = SpeedBFIRMAClick
      end
      object SpeedBGRUP: TSpeedButton
        Left = 295
        Top = 35
        Width = 21
        Height = 21
        Hint = '�r�n Grubu Se�in'
        Glyph.Data = {
          42010000424D4201000000000000760000002800000011000000110000000100
          040000000000CC00000000000000000000000000000010000000000000000000
          BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003333333FBFFF
          FFFFF000000033333333FBBFFFFBF00000003333333FBFFFFBFFFE0000003333
          333FBFFFFBFBF600000033333333FBBFFFFFF70000003333333444FBFFFBF600
          000033333344834FBFFFF1000000333334847F84BFFFF6000000333334484F84
          FBBFB00000003333348F74483FF3F6000000333344FFF7433333300000003344
          8F8444333333300000003448F7433333333330000000348F7733333333333000
          000034F77433333333333F000000344443333333333330000000333333333333
          333337000000}
        ParentShowHint = False
        ShowHint = True
        OnClick = SpeedBGRUPClick
      end
      object Label2: TLabel
        Left = 325
        Top = 5
        Width = 80
        Height = 16
        Caption = '�LA� BARKOD&U'
        FocusControl = EditILACKOD
      end
      object Label1: TLabel
        Left = 334
        Top = 234
        Width = 108
        Height = 14
        Caption = '�ZEL STOK M�KTARI'
        FocusControl = EditPASFSTOK
      end
      object Label11: TLabel
        Left = 331
        Top = 210
        Width = 111
        Height = 14
        Caption = '&�ZEL STOKTAK� YER�'
        FocusControl = EditPASIFYER
      end
      object Label13: TLabel
        Left = 7
        Top = 211
        Width = 182
        Height = 14
        Caption = 'SATI� D�NEMLER� ASG. STOKLARI'
        Font.Color = clNavy
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label16: TLabel
        Left = 520
        Top = 145
        Width = 69
        Height = 14
        Caption = 'RAF M�KTARI'
      end
      object Label17: TLabel
        Left = 2
        Top = 189
        Width = 81
        Height = 14
        Caption = 'Son Giri� Fiyat�'
        Font.Color = clTeal
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object LabelAlFiyat: TLabel
        Left = 226
        Top = 189
        Width = 16
        Height = 14
        Alignment = taRightJustify
        Caption = '----'
      end
      object Label20: TLabel
        Left = 249
        Top = 189
        Width = 18
        Height = 14
        Caption = 'Kar'
        Font.Color = clTeal
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Bevel3: TBevel
        Left = 270
        Top = 186
        Width = 157
        Height = 21
        Shape = bsFrame
        Style = bsRaised
      end
      object LabelKAR: TLabel
        Left = 407
        Top = 189
        Width = 16
        Height = 14
        Alignment = taRightJustify
        Caption = '----'
      end
      object EditILACKOD: TDBEdit
        Left = 408
        Top = 2
        Width = 128
        Height = 22
        DataField = 'ILACKOD'
        DataSource = URUNSRC
        MaxLength = 0
        TabOrder = 1
        OnExit = EditILACKODExit
      end
      object EditILACAD: TDBEdit
        Left = 73
        Top = 2
        Width = 224
        Height = 22
        DataField = 'ILACAD'
        DataSource = URUNSRC
        MaxLength = 0
        TabOrder = 0
      end
      object EditFIYAT: TDBEdit
        Left = 154
        Top = 160
        Width = 104
        Height = 22
        DataField = 'FIYAT'
        DataSource = URUNSRC
        MaxLength = 0
        TabOrder = 8
        OnExit = EditFIYATExit
      end
      object EditFIYATARIH: TDBEdit
        Left = 2
        Top = 160
        Width = 73
        Height = 22
        DataField = 'FIYATARIH'
        DataSource = URUNSRC
        MaxLength = 0
        TabOrder = 6
      end
      object EditKDV: TDBEdit
        Left = 108
        Top = 160
        Width = 39
        Height = 22
        DataField = 'KDV'
        DataSource = URUNSRC
        MaxLength = 0
        PopupMenu = PopupMenu1
        TabOrder = 7
        OnExit = EditKDVExit
        OnKeyPress = EditKDVKeyPress
      end
      object EditMIKTAR: TDBEdit
        Left = 443
        Top = 160
        Width = 50
        Height = 22
        DataField = 'MIKTAR'
        DataSource = URUNSRC
        MaxLength = 0
        TabOrder = 11
      end
      object EditYER: TDBEdit
        Left = 371
        Top = 160
        Width = 55
        Height = 22
        DataField = 'YER'
        DataSource = URUNSRC
        MaxLength = 0
        TabOrder = 10
      end
      object EditMIAD: TDBEdit
        Left = 269
        Top = 160
        Width = 65
        Height = 22
        DataField = 'MIAD'
        DataSource = URUNSRC
        MaxLength = 0
        TabOrder = 9
      end
      object EditAKTIFSTOK: TDBEdit
        Left = 44
        Top = 225
        Width = 50
        Height = 22
        DataField = 'AKTIFSTOK'
        DataSource = URUNSRC
        MaxLength = 0
        TabOrder = 12
      end
      object EditPASFSTOK: TDBEdit
        Left = 136
        Top = 225
        Width = 50
        Height = 22
        DataField = 'PASIFSTOK'
        DataSource = URUNSRC
        MaxLength = 0
        TabOrder = 13
      end
      object DBRadioGroup1: TDBRadioGroup
        Left = 3
        Top = 252
        Width = 260
        Height = 98
        Caption = 'AKT�F SATI� D�&NEM�'
        Columns = 3
        DataField = 'AKTIFDONEM'
        DataSource = URUNSRC
        Items.Strings = (
          'Her Zaman'
          '�lk&bahar'
          'Ya&z'
          'S&onbahar'
          'K��'
          'Ocak'
          '�ubat'
          'Mart'
          'Nisan'
          'May�s'
          'Haziran'
          'Temmuz'
          'A�ustos'
          'Eyl�l'
          'Ekim'
          'Kas�m'
          'Aral�k')
        TabOrder = 18
        Values.Strings = (
          'H'
          '�'
          'Y'
          'S'
          'K'
          '1'
          '2'
          '3'
          '4'
          '5'
          '6'
          '7'
          '8'
          '9'
          '0'
          'M'
          'A')
      end
      object DBRadioGroup2: TDBRadioGroup
        Left = 266
        Top = 252
        Width = 331
        Height = 98
        Caption = '&RE�ETE T�P�'
        Columns = 2
        DataField = 'RECETEKOD'
        DataSource = URUNSRC
        Items.Strings = (
          'Normal'
          'Ye�il Re�eteli'
          'K�rm�z� Re�eteli'
          'Re�ete �le Sat��� Mecburi'
          'Antibiogram Gerekli'
          'Sa�l�k Kurulu Rap.Gerekli'
          '�zel Kat�l�m Payl�'
          '�la� Beraberi'
          'Bedelini Hasta �deyecek'
          'Hastahanede Yatan Hasta'
          '�thal �la�'
          'Raporlu �thal �la�')
        TabOrder = 19
        Values.Strings = (
          'N'
          'Y'
          'K'
          'R'
          'A'
          'S'
          'O'
          'I'
          'B'
          'H'
          'L'
          'U')
      end
      object DBMemo1: TDBMemo
        Left = 322
        Top = 38
        Width = 274
        Height = 103
        Color = clTeal
        DataField = 'PROSPEKTUS'
        DataSource = URUNSRC
        Font.Color = clWhite
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        MaxLength = 25000
        ParentFont = False
        ScrollBars = ssBoth
        TabOrder = 21
      end
      object BitBtnSakla: TBitBtn
        Left = 515
        Top = 191
        Width = 75
        Height = 27
        Caption = '&Sakla'
        Font.Color = clNavy
        Font.Height = -12
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 22
        OnClick = BitBtnSaklaClick
        Glyph.Data = {
          78010000424D7801000000000000760000002800000020000000100000000100
          04000000000000000000120B0000120B00000000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000
          000033333377777777773333330FFFFFFFF03FF3FF7FF33F3FF700300000FF0F
          00F077F777773F737737E00BFBFB0FFFFFF07773333F7F3333F7E0BFBF000FFF
          F0F077F3337773F3F737E0FBFBFBF0F00FF077F3333FF7F77F37E0BFBF00000B
          0FF077F3337777737337E0FBFBFBFBF0FFF077F33FFFFFF73337E0BF0000000F
          FFF077FF777777733FF7000BFB00B0FF00F07773FF77373377373330000B0FFF
          FFF03337777373333FF7333330B0FFFF00003333373733FF777733330B0FF00F
          0FF03333737F37737F373330B00FFFFF0F033337F77F33337F733309030FFFFF
          00333377737FFFFF7733333033000000033333373377777773330000}
        Layout = blGlyphRight
        NumGlyphs = 2
      end
      object BitBtnIptal: TBitBtn
        Left = 515
        Top = 224
        Width = 75
        Height = 27
        Caption = '&Vazge�'
        Font.Color = clNavy
        Font.Height = -12
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 23
        OnClick = BitBtnIptalClick
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000130B0000130B00000000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          333333333333333333333333333333333333333FFF33FF333FFF339993370733
          999333777FF37FF377733339993000399933333777F777F77733333399970799
          93333333777F7377733333333999399933333333377737773333333333990993
          3333333333737F73333333333331013333333333333777FF3333333333910193
          333333333337773FF3333333399000993333333337377737FF33333399900099
          93333333773777377FF333399930003999333337773777F777FF339993370733
          9993337773337333777333333333333333333333333333333333333333333333
          3333333333333333333333333333333333333333333333333333}
        Layout = blGlyphRight
        NumGlyphs = 2
      end
      object EditJen: TEdit
        Left = 73
        Top = 91
        Width = 219
        Height = 22
        Enabled = False
        TabOrder = 4
        OnClick = SpeedBJenClick
      end
      object EditGRUP: TEdit
        Left = 73
        Top = 34
        Width = 219
        Height = 22
        Enabled = False
        TabOrder = 2
        OnClick = SpeedBJenClick
      end
      object EditFIRMA: TEdit
        Left = 73
        Top = 62
        Width = 219
        Height = 22
        Enabled = False
        TabOrder = 3
        OnClick = SpeedBJenClick
      end
      object EditENDIK: TEdit
        Left = 73
        Top = 119
        Width = 219
        Height = 22
        Enabled = False
        TabOrder = 5
        OnClick = SpeedBJenClick
      end
      object EditPASIFMIK: TDBEdit
        Left = 445
        Top = 230
        Width = 50
        Height = 22
        DataField = 'PASIFMIKTAR'
        DataSource = URUNSRC
        MaxLength = 0
        TabOrder = 17
      end
      object EditPASIFYER: TDBEdit
        Left = 445
        Top = 206
        Width = 50
        Height = 22
        DataField = 'PASIFYER'
        DataSource = URUNSRC
        MaxLength = 0
        TabOrder = 16
      end
      object DBEdit1: TDBEdit
        Left = 520
        Top = 160
        Width = 54
        Height = 22
        Color = clSilver
        DataField = 'RAFMIKTARI'
        DataSource = URUNSRC
        MaxLength = 0
        ReadOnly = True
        TabOrder = 24
      end
      object BitBtn1: TBitBtn
        Left = 565
        Top = 4
        Width = 27
        Height = 27
        Hint = 'Yard�m'
        HelpContext = 312
        Caption = ' '
        Font.Color = clNavy
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 25
        Kind = bkHelp
      end
      object AylikBtn: TBitBtn
        Left = 196
        Top = 220
        Width = 27
        Height = 27
        Hint = 'Ayl�k Rapor'
        HelpContext = 519
        Font.Color = clNavy
        Font.Height = -12
        Font.Name = 'Arial Tur'
        Font.Style = [fsBold]
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 14
        OnClick = AylikBtnClick
        Glyph.Data = {
          78010000424D7801000000000000760000002800000020000000100000000100
          04000000000000000000120B0000120B00000000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333330000000
          00003333377777777777333330FFFFFFFFF03FF3F7FFFF33FFF7003000000FF0
          00F077F7777773F77737E00FBFBFB0FFFFF07773333FF7FF33F7E0FBFB00000F
          F0F077F333777773F737E0BFBFBFBFB0FFF077F3333FFFF733F7E0FBFB00000F
          F0F077F333777773F737E0BFBFBFBFB0FFF077F33FFFFFF733F7E0FB0000000F
          F0F077FF777777733737000FB0FFFFFFFFF07773F7F333333337333000FFFFFF
          FFF0333777F3FFF33FF7333330F000FF0000333337F777337777333330FFFFFF
          0FF0333337FFFFFF7F37333330CCCCCC0F033333377777777F73333330FFFFFF
          0033333337FFFFFF7733333330000000033333333777777773330000}
        NumGlyphs = 2
      end
      object SKartBtn: TBitBtn
        Left = 229
        Top = 220
        Width = 27
        Height = 27
        Hint = 'Stok Kart�'
        Font.Color = clNavy
        Font.Height = -12
        Font.Name = 'Arial Tur'
        Font.Style = [fsBold]
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 15
        OnClick = SKartBtnClick
        Glyph.Data = {
          10010000424D1001000000000000760000002800000010000000100000000100
          0400000000008000000000000000000000000000000000000000000000000000
          8000008000000080800080000000800080008080000080808000C0C0C0000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          3333344444444444444334F9F4904E0E0E43349F9409444444433444449094DF
          4F433494940904FD4B43344F444444DF4F4334F4F4A4FDFD4B43344F4424DFDF
          4443349494A4FDFD494334444424444448433330A2A203348943333000000334
          9843333349994334894333334444433444433333333333333333000000000000
          0000000000000000000000000000000000000000}
      end
      object DBRadioGrIS: TDBRadioGroup
        Left = 3
        Top = 350
        Width = 593
        Height = 57
        HelpContext = 134
        Caption = 'ALI�TA �SKONTO T�P�'
        Color = clSilver
        Columns = 3
        Ctl3D = True
        DataField = 'ALISTIP'
        DataSource = URUNSRC
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        Items.Strings = (
          '&1.Sabit Depo �sk.lu'
          '&2.�skontosuz'
          '&3.Depocu Fiyatl� Sbt.Dp.�sk.lu'
          '&4.Depocu Fiyatl� �sk.suz'
          '&5.Di�er(KDVsiz) �sk.suz'
          '&6.Farkl� �skontolu'
          '&7.Depocu Fyt.l� Farkl� �sk.lu'
          '&8.Di�er(KDVsiz) Sbt.Dp. �sk.lu'
          '&9.Di�er(KDVsiz) Farkl� �sk.lu')
        ParentColor = False
        ParentCtl3D = False
        ParentFont = False
        TabOrder = 20
        Values.Strings = (
          '0'
          '1'
          '2'
          '3'
          '4'
          '5'
          '6'
          '7'
          '8')
      end
    end
  end
  object URUNSRC: TDataSource
    DataSet = URUNLER
    Left = 281
    Top = 5
  end
  object URUNLER: TTable
    BeforeOpen = URUNLERBeforeOpen
    BeforeClose = URUNLERBeforeClose
    BeforeEdit = URUNLERBeforeEdit
    BeforePost = URUNLERBeforeEdit
    AfterPost = URUNLERAfterPost
    OnCalcFields = URUNLERCalcFields
    DatabaseName = 'ECZ'
    IndexFieldNames = 'ILACAD'
    TableName = 'urun.db'
    Left = 248
    Top = 8
    object URUNLERILACNO: TIntegerField
      FieldName = 'ILACNO'
    end
    object URUNLERILACKOD: TStringField
      FieldName = 'ILACKOD'
      Size = 13
    end
    object URUNLERILACAD: TStringField
      FieldName = 'ILACAD'
      Required = True
      Size = 36
    end
    object URUNLERGRUPNO: TIntegerField
      FieldName = 'GRUPNO'
    end
    object URUNLERFIRMANO: TIntegerField
      FieldName = 'FIRMANO'
    end
    object URUNLERJENERIKNO: TIntegerField
      FieldName = 'JENERIKNO'
    end
    object URUNLERENDIKNO: TIntegerField
      FieldName = 'ENDIKNO'
    end
    object URUNLERFIYAT: TCurrencyField
      FieldName = 'FIYAT'
    end
    object URUNLERFIYATARIH: TDateField
      FieldName = 'FIYATARIH'
      DisplayFormat = 'dd/mm/yyyy'
      EditMask = '!90/90/9900;1; '
    end
    object URUNLERKDV: TFloatField
      DisplayWidth = 5
      FieldName = 'KDV'
      DisplayFormat = '#.##'
    end
    object URUNLERMIKTAR: TIntegerField
      FieldName = 'MIKTAR'
    end
    object URUNLERSIPARIS: TIntegerField
      FieldName = 'SIPARIS'
    end
    object URUNLERYER: TStringField
      FieldName = 'YER'
      Size = 7
    end
    object URUNLERMIAD: TDateField
      DisplayWidth = 7
      FieldName = 'MIAD'
      OnGetText = URUNLERMIADGetText
      OnSetText = URUNLERMIADSetText
      DisplayFormat = 'mm/yyyy'
      EditMask = '!99/9999;1;_'
    end
    object URUNLERRECETEKOD: TStringField
      FieldName = 'RECETEKOD'
      Size = 1
    end
    object URUNLERAKTIFDONEM: TStringField
      FieldName = 'AKTIFDONEM'
      Size = 1
    end
    object URUNLERAKTIFSTOK: TIntegerField
      FieldName = 'AKTIFSTOK'
    end
    object URUNLERETIKET: TIntegerField
      FieldName = 'ETIKET'
    end
    object URUNLERPROSPEKTUS: TMemoField
      FieldName = 'PROSPEKTUS'
      BlobType = ftMemo
      Size = 3
    end
    object URUNLERPASIFSTOK: TIntegerField
      FieldName = 'PASIFSTOK'
    end
    object URUNLERPASIFYER: TStringField
      FieldName = 'PASIFYER'
      Size = 7
    end
    object URUNLERPASIFMIKTAR: TIntegerField
      FieldName = 'PASIFMIKTAR'
    end
    object URUNLERRAFMIKTARI: TIntegerField
      Calculated = True
      FieldName = 'RAFMIKTARI'
    end
    object URUNLERALISTIP: TStringField
      FieldName = 'ALISTIP'
      Size = 1
    end
  end
  object GRUPLAR: TTable
    DatabaseName = 'ECZ'
    IndexFieldNames = 'GRUPNO'
    TableName = 'GRUP.DB'
    Left = 318
    Top = 5
    object GRUPLARGRUPAD: TStringField
      FieldName = 'GRUPAD'
      Required = True
      Size = 36
    end
    object GRUPLARGRUPNO: TIntegerField
      FieldName = 'GRUPNO'
    end
  end
  object GRUPSRC: TDataSource
    DataSet = GRUPLAR
    Left = 336
    Top = 71
  end
  object JENLER: TTable
    DatabaseName = 'ECZ'
    IndexFieldNames = 'JENERIKNO'
    TableName = 'JEN.DB'
    Left = 392
    Top = 63
    object JENLERJENERIKAD: TStringField
      FieldName = 'JENERIKAD'
      Required = True
      Size = 36
    end
    object JENLERJENERIKNO: TIntegerField
      FieldName = 'JENERIKNO'
    end
  end
  object JENSCR: TDataSource
    DataSet = JENLER
    Left = 370
    Top = 95
  end
  object ENDIKLER: TTable
    DatabaseName = 'ECZ'
    IndexFieldNames = 'ENDIKNO'
    TableName = 'ENDIK.DB'
    Left = 436
    Top = 27
    object ENDIKLERENDIKASYONAD: TStringField
      FieldName = 'ENDIKASYONAD'
      Required = True
      Size = 36
    end
    object ENDIKLERENDIKNO: TIntegerField
      FieldName = 'ENDIKNO'
    end
  end
  object ENDIKSCR: TDataSource
    DataSet = ENDIKLER
    Left = 472
    Top = 29
  end
  object FIRMALAR: TTable
    DatabaseName = 'ECZ'
    IndexFieldNames = 'FIRMANO'
    TableName = 'FIRMA.DB'
    Left = 538
    Top = 9
    object FIRMALARFIRMAD: TStringField
      FieldName = 'FIRMAD'
      Required = True
      Size = 36
    end
    object FIRMALARFIRMANO: TIntegerField
      FieldName = 'FIRMANO'
    end
  end
  object FIRMASCR: TDataSource
    DataSet = FIRMALAR
    Left = 504
    Top = 33
  end
  object UFiyAyarTAB: TTable
    DatabaseName = 'ECZ'
    TableName = 'URFAYAR.DB'
    Left = 222
    Top = 134
    object UFiyAyarTABILACNO: TIntegerField
      FieldName = 'ILACNO'
    end
    object UFiyAyarTABFITARIH: TDateTimeField
      FieldName = 'FITARIH'
    end
    object UFiyAyarTABFIYAT: TCurrencyField
      FieldName = 'FIYAT'
    end
  end
  object MikDegTab: TTable
    DatabaseName = 'ECZ'
    TableName = 'MRAPORD.DB'
    Left = 382
    Top = 334
    object MikDegTabILACNO: TIntegerField
      FieldName = 'ILACNO'
    end
    object MikDegTabTARIH: TDateTimeField
      FieldName = 'TARIH'
    end
    object MikDegTabMIKDEG: TIntegerField
      FieldName = 'MIKDEG'
    end
    object MikDegTabDEGTOP: TCurrencyField
      FieldName = 'DEGTOP'
    end
  end
  object KdvBakTab: TTable
    DatabaseName = 'ECZ'
    TableName = 'KDV.DB'
    Left = 334
    Top = 326
    object KdvBakTabKDV1: TFloatField
      FieldName = 'KDV1'
    end
    object KdvBakTabKDV2: TFloatField
      FieldName = 'KDV2'
    end
    object KdvBakTabKDV3: TFloatField
      FieldName = 'KDV3'
    end
  end
  object PopupMenu1: TPopupMenu
    Alignment = paRight
    Left = 150
    Top = 126
    object kdv11: TMenuItem
      Caption = 'kdv1'
      ShortCut = 0
      OnClick = kdv11Click
    end
    object kdv21: TMenuItem
      Caption = 'kdv2'
      ShortCut = 0
      OnClick = kdv11Click
    end
    object kdv31: TMenuItem
      Caption = 'kdv3'
      ShortCut = 0
      OnClick = kdv11Click
    end
  end
  object prosesTab: TTable
    DatabaseName = 'ECZ'
    TableName = 'PROSES.DB'
    Left = 432
    Top = 128
    object prosesTabTARIH: TDateTimeField
      FieldName = 'TARIH'
    end
    object prosesTabACIKLA: TStringField
      FieldName = 'ACIKLA'
      Size = 36
    end
    object prosesTabTUTAR: TCurrencyField
      FieldName = 'TUTAR'
    end
    object prosesTabISLETIPI: TStringField
      FieldName = 'ISLETIPI'
      Size = 15
    end
    object prosesTabMIKTAR: TIntegerField
      FieldName = 'MIKTAR'
    end
    object prosesTabFIYAT: TCurrencyField
      FieldName = 'FIYAT'
    end
  end
  object QBARKOD: TQuery
    DatabaseName = 'ECZ'
    Params.Data = {01000100066B6F647665720001020030000000}
    SQL.Strings = (
      'SELECT'
      'URUN.ILACNO,'
      'URUN.ILACKOD'
      'FROM URUN'
      'WHERE (ILACKOD=:kodver)')
    Left = 238
    Top = 222
    object QBARKODILACNO: TIntegerField
      FieldName = 'ILACNO'
    end
    object QBARKODILACKOD: TStringField
      FieldName = 'ILACKOD'
      Size = 13
    end
  end
  object QSonAlFiyat: TQuery
    DatabaseName = 'ECZ'
    Params.Data = {
      0100020004696C6E6F000304006A110000000104696C6E6F000304006A110000
      0001}
    SQL.Strings = (
      'SELECT '
      'GIRFIYAT'
      'FROM URUNHRK '
      'WHERE '
      'GCTARIH =(SELECT MAX(URUNHRK.GCTARIH) '
      'FROM URUNHRK '
      'WHERE (ILACNO=:ilno) AND (URUNHRK.GIRMIK>0))'
      'AND ILACNO=:ilno')
    Left = 280
    Top = 256
    object QSonAlFiyatGIRFIYAT: TCurrencyField
      FieldName = 'GIRFIYAT'
    end
  end
  object UserAbc: TTable
    DatabaseName = 'ECZ'
    TableName = 'usera.db'
    Left = 472
    Top = 265
    object UserAbcKULLANICI: TStringField
      FieldName = 'KULLANICI'
      Size = 25
    end
    object UserAbcURUNKARTI: TStringField
      FieldName = 'URUNKARTI'
      Size = 1
    end
  end
end